home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / E-Education / (c)ed20.d64 / tt8 (.txt) < prev    next >
Commodore BASIC  |  2007-02-11  |  6KB  |  166 lines
  1. 10 CLR:POKE53280,0:POKE53281,0:POKE646,3:POKE53272,23
  2. 15 PRINT"[147]                                        [146]";
  3. 20 PRINT"     [210][193][196]'[211] [212][207][213][195][200][160][212][217][208][201][206][199] - MADE EASY     [146]";
  4. 25 PRINT"                                        [146]":GOSUB710
  5. 30 PRINT"               [205]ODULE  8 [146]
  6. 35 [141]720
  7. 38 [151]53280,0:[151]53281,0:[151]646,7
  8. 40 [153]"LOAD                 (null)(null)8 WAIT
  9. 42 PRINT"[150]              [215][193][210][206][201][206][199]!![159]"
  10. 44 PRINT"   [201]F YOU MAKE 4 UNCORRECTED ERRORS        IN THIS MODULE, YOU ";
  11. 46 PRINT"MUST START          OVER AGAIN."
  12. 48 PRINT"[154]     [208]RESS  [211][208][193][195][197][160][194][193][210] [146] TO CONTINUE[159]"
  13. 50 GETR$:IFR$<>CHR$(32)THEN50
  14. 52 GOSUB600
  15. 56 POKE53280,3:POKE53281,15:POKE646,0:POKE53272,21
  16. 58 R=0:TI$="000000":LINE=0:P=0:Q=0:G=1:K=0
  17. 60 LINE=LINE+1:PRINT"[147] TT8  EXERCISE:"TAB(2)LINE"OF 17"TAB(28)"ERRORS:"Q
  18. 62 REM FOR K=1 TO 17
  19. 64 READ E$(K)
  20. 66 PRINT" TYPE CORRECTLY, THEN PRESS RETURN[146]"
  21. 67 PRINT"                                        "
  22. 68 PRINT"[145] ";E$(K)
  23. 70 PRINT"[144]"
  24. 72 READ F$(K)
  25. 74 POKE198,1:POKE631,34:PRINT"[144][145]":INPUT C$
  26. 76 IF C$=F$(K) THEN 90
  27. 78 PRINT" **** NOT CORRECT - REPEAT - ERRORS:"G"":GOSUB2050:GOSUB710
  28. 80 Q=Q+1:G=G+1
  29. 82 IF Q=4 THEN GOSUB 400:RESTORE:G=0:GOTO 56
  30. 84 GOTO 74
  31. 90 PRINT"              CORRECT![144]":GOSUB2000:GOSUB710:P=P+1
  32. 92 IFP=17THEN RESTORE:GOTO 300
  33. 94 GOTO60
  34. 96 PRINT"                                        [145]":GOTO74
  35. 99 REM DATA FOR EXERCISES
  36. 100 DATA" LATER DAD ORDERED A SALAD TOO.","LATER DAD ORDERED A SALAD TOO."
  37. 105 DATA" A LOT OF ROOFS ARE TOO OLD.","A LOT OF ROOFS ARE TOO OLD."
  38. 110 DATA" A ROAD LED OFF TO A FAT LAKE.","A ROAD LED OFF TO A FAT LAKE."
  39. 115 DATA" FLAT OLD FEET ARE FASTER TOO.","FLAT OLD FEET ARE FASTER TOO."
  40. 120 DATA" SELL ALL SALADS FOR A DOLLAR.","SELL ALL SALADS FOR A DOLLAR."
  41. 125 DATA" DAD ALSO TELLS OLD JOKES TOO.","DAD ALSO TELLS OLD JOKES TOO."
  42. 130 DATA" A LOT OF OLD JARS FLOAT TO SEA.","A LOT OF OLD JARS FLOAT TO SEA."
  43. 135 DATA" TAKE A FREE DESK TO A RED TREE.","TAKE A FREE DESK TO A RED TREE."
  44. 140 DATA" A DOLL TOOK A JAR TO A FOREST.","A DOLL TOOK A JAR TO A FOREST."
  45. 145 DATA" RED ROOFS FALL FAST AT LAST.","RED ROOFS FALL FAST AT LAST."
  46. 150 DATA" TAKE A RED DESK TO A FOREST.","TAKE A RED DESK TO A FOREST."
  47. 155 DATA" LOTS OF OLD JARS FLOAT TO SEA.","LOTS OF OLD JARS FLOAT TO SEA."
  48. 160 DATA" SELL SEEDS TO SEE A LOT LATER.","SELL SEEDS TO SEE A LOT LATER."
  49. 165 DATA" TOSS LOTS OF SEEDS AT A TREE.","TOSS LOTS OF SEEDS AT A TREE."
  50. 170 DATA" SEE A DOLL SELL FOR A DOLLAR.","SEE A DOLL SELL FOR A DOLLAR."
  51. 175 DATA" A RED SALAD SELLS FOR A DOLLAR.","A RED SALAD SELLS FOR A DOLLAR."
  52. 180 DATA" TELL FAT OLD DAD A JOKE LATER.","TELL FAT OLD DAD A JOKE LATER."
  53. 298 :
  54. 299 REM FINAL INSTRUCTIONS
  55. 300 RESTORE:POKE53272,23:PRINT"[147]                [199][207][207][196][160][215][207][210][203]!":GOSUB900
  56. 305 POKE53280,0:POKE53281,0:POKE646,7
  57. 310 PRINT"[147]  [212]HIS IS THE END OF MODULE 8.":GOSUB710
  58. 315 PRINT"  [212]HE NUMBER OF SECONDS TO COMPLETE       THIS MODULE WERE:"
  59. 317 PRINT"[145]"VAL(TI$)
  60. 320 GOSUB720
  61. 325 PRINT"  [210]ECORD THIS TIME AND THE DATE.
  62. 330 [141]740
  63. 335 [153]"DEF  (null)HIS MODULE SHOULD BE PERFORMED
  64. 340 PRINT"  TWICE BEFORE ADVANCING TO MODULE 9."
  65. 345 GOSUB730
  66. 350 PRINT"[158]  [215]HEN YOU HAVE RECORDED YOUR TIME
  67. 355 [153]"  AND THE DATE, PRESS (null)(null)ATNLENVAL PEEKATN(null).
  68. 360 GETR$:IFR$<>CHR$(32)THEN360
  69. 362 PRINT"[147]  [217]OU HAVE A CHOICE:
  70. 364 [153]"  (null)RESS  R WAIT TO REPEAT THIS MODULE
  71. 366 PRINT"  [208]RESS  C [146] TO GO TO MODULE 9
  72. 368 [153]"  (null)RESS  M WAIT TO GO TO DISK MENU
  73. 370 GETR$:IFR$<>"R"ANDR$<>"C"ANDR$<>"M"THEN370
  74. 372 IFR$="R"THEN RESTORE:GOTO10
  75. 374 IFR$="M"THEN 386
  76. 376 RESTORE
  77. 378 PRINT"[147]  [204]OADING MODULE 9"
  78. 380 LOAD"TT9",8
  79. 382 RUN
  80. 384 END
  81. 386 RESTORE
  82. 388 PRINT"[147]  [204]OADING DISK MENU"
  83. 390 LOAD"MENU",8
  84. 392 RUN
  85. 394 END
  86. 399 :
  87. 400 REM START AGAIN
  88. 410 POKE53280,0:POKE53281,0:POKE646,10
  89. 420 PRINT"[147]   YOU ARE MAKING TOO MANY MISTAKES!":GOSUB2150:GOSUB710
  90. 430 PRINT"   YOU MUST GO BACK TO THE BEGINNING       OF THIS MODULE.
  91. 440 [141]740:[153]"LOAD"
  92. 450 [142]
  93. 598 :
  94. 599 [143] INSTRUCTIONS FOR MODULE
  95. 600 [153]"OPENLOAD  (null)ODULE 8 IS A REVIEW OF THE PAST        SEVEN MODULES.
  96. 605 PRINT"  [150]   [146][153]   [146]   [146][158]      [146][159]      [146]   [146][153]   [146][150]   [146]
  97. 610 [153]"   DEF   WAITPRINT   WAIT VAL WAITSYS (null)  (null) WAITOPEN      WAIT   WAITPRINT (null) WAITDEF   WAIT   "
  98. 615 [153]"    DEF ATN WAITPRINT (null) WAIT STR$ WAITSYS ASC WAIT  WAITOPEN      MID$ WAIT (null) WAITPRINT (null) WAITDEF : WAIT"
  99. 620 [153]"      DEF   WAITPRINT   WAIT   WAITSYS      WAITOPEN      WAIT   WAITPRINT . WAITDEF   WAIT
  100. 625 PRINT"[155]                 [211][208][193][195][197]      [146]
  101. 630 [141]720
  102. 635 [143] PRINT"OPEN  (null)SE YOUR  ASC WAIT FINGER TO PRESS THE  (null) WAIT    KEY.
  103. 640 PRINT"[159]  [194]E SURE YOUR [208][207][201][206][212][217]  [198] [146] AND  [202] [146]         FINGERS CAN ";
  104. 645 PRINT"FIND THEIR [200][207][205][197] KEYS."
  105. 660 GOSUB720:PRINT"[154]        [208]RESS  [211][208][193][195][197] [146] TO START[159]"
  106. 665 GETR$:IFR$<>CHR$(32)THEN665
  107. 670 RETURN
  108. 700 REM TIME DELAYS
  109. 710 FORT=1TO1000:NEXT:RETURN
  110. 720 FORT=1TO2000:NEXT:RETURN
  111. 730 FORT=1TO3000:NEXT:RETURN
  112. 740 FORT=1TO4000:NEXT:RETURN
  113. 750 FORT=1TO5000:NEXT:RETURN
  114. 899 REM END OF MODULE FLASH
  115. 900 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  116. 905 POKE54272,220:FOR T=15 TO 1 STEP-1
  117. 910 POKE54273,T:POKE53281,T
  118. 915 FOR T1=1 TO 5:NEXT T1:NEXT T:FOR T=1 TO 30
  119. 920 POKE54273,T:POKE53280,T
  120. 925 FORT1=1 TO 5:NEXT T1:NEXT T
  121. 930 POKE54276,0:POKE54273,0:POKE54272,0
  122. 936 RETURN
  123. 1998 :
  124. 1999 REM <YES> SOUND
  125. 2000 S=54272:FORE=STOS+28:POKEE,0:NEXT
  126. 2005 POKE54296,15:POKE54277,42:POKE54278,250
  127. 2010 POKE54276,23:POKE54273,23:POKE54272,181
  128. 2015 FORT=1TO100:NEXT:POKE54276,32:FORT=1TO200:NEXT
  129. 2020 POKE54296,0:RETURN
  130. 2048 :
  131. 2049 REM <NO> SOUND
  132. 2050 S=54272:FORE=STOS+28:POKEE,0:NEXT
  133. 2055 POKE54296,15:POKE54277,18:POKE54278,242
  134. 2060 POKE54276,33:POKE54273,4:POKE54272,48
  135. 2063 FORT=1TO300:NEXT:POKE54276,32:FORT=1TO800:NEXT
  136. 2065 FORE=STOS+28:POKEE,0:NEXT
  137. 2070 POKE54276,0:POKE54273,0:POKE54272,0
  138. 2075 POKE54296,0:RETURN
  139. 2098 :
  140. 2099 REM <END OF EXERCISE> SOUND
  141. 2100 POKE54276,17:POKE54277,30:POKE54278,200:POKE54296,15
  142. 2105 POKE54272,220:FORT=50TO1STEP-1
  143. 2110 FORT1=1TO5:NEXTT1:NEXTT:FORT=1TO30
  144. 2115 POKE54273,T:POKE53280,T
  145. 2120 FORT1=1TO5:NEXTT1:NEXTT
  146. 2125 POKE54276,0:POKE54273,0:POKE54272,0
  147. 2130 POKE54296,0:RETURN
  148. 2148 :
  149. 2149 REM <WHOOPING> SOUND
  150. 2150 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,8
  151. 2155 POKE54277,8:POKE54278,255:POKE54276,23
  152. 2160 FORZ=1TO3:F1=2
  153. 2165 FORY=1TO3:F2=8
  154. 2170 POKE54273,F1
  155. 2175 FORX=1TO5:POKE54287,F2
  156. 2180 F2=F2*1.4:NEXTX:F1=F1*1.5:NEXTY
  157. 2185 FORW=1TO10:POKE54287,F2
  158. 2190 F2=F2*1.05:NEXT W:NEXT Z:POKE54278,15
  159. 2195 POKE54296,0:RETURN
  160. 4999 :
  161. 5000 REM * IN MEMORY OF RAD JANJIC *                     RIP 87:11:26
  162. 5005 :
  163. 5010 REM DESIGNED BY W H CUMBERLAND 87:12:21/88:04:21/90:11:03/91:05:10
  164. 5020 REM THANKS TO JIM BUTTERFIELD
  165. 5025 REM ADVISE WHC [416/278 7687] OF ANY IMPROVEMENTS OR SUGGESTIONS
  166.